home *** CD-ROM | disk | FTP | other *** search
/ Killer Drive 64 8 / Killer-Drive_64_08_1998_-_de_Side_B.d64 / 3d-statistik (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  45 lines
  1. 0 rem*****************
  2. 1 rem* 3-d statistik *
  3. 2 rem*@1988 by rainer*
  4. 3 rem* teuber        *
  5. 4 rem* programmed at *
  6. 5 rem* 28.7.1988     *
  7. 6 rem*****************
  8. 8 poke53281,3:poke53280,5:poke54296,15:poke54283,0
  9. 9 s1=54279:s2=54280:h=54285:an=54283
  10. 10 printchr$(8):print"[147]         dadede's  3d-statistik":rem ** erklaerung **
  11. 11 print"[144]gebe nach jeder zahl ? den wert ein,"
  12. 12 print"z.b. 120 (fuer dm,kg o.a.) und return "
  13. 13 print"[144]gebe nach jedem ?? den monat oder   "
  14. 14 print"die jahreszahl ein, gefolgt von return"
  15. 15 print"wenn man nach der zeichnung die 'f1'    taste  drueckt, kann"
  16. 16 print"man neue werte eingeben."
  17. 20 rem ** eingabe **
  18. 25 fora=0to6
  19. 27 a$=""
  20. 30 printstr$(a+1)".";:inputa$,ja$:ifa$=""thenprint"[145][145]":goto30
  21. 31 iflen(ja$)<1thenja$="  "
  22. 33 iflen(ja$)=1thenja$=" "+ja$
  23. 34 pokes1,207:pokes2,34:pokeh,240:pokean,17:forw=1to100:next:pokean,0
  24. 35 iflen(ja$)>2thenja$=mid$(ja$,1,2)
  25. 36 pokean,0
  26. 50 a(a)=val(a$):ja$(a)=mid$(ja$,1,2)
  27. 60 next
  28. 78 rem ** groesster wert **
  29. 80 g=a(0)
  30. 90 forb=1to7
  31. 100 ifa(b)>gtheng=a(b)
  32. 110 next
  33. 120 rem > zeichnen <-
  34. 190 t=-3:print"[147]"
  35. 195 d=0:t=t+5:print""tab(t)"[144]"ja$(c)"[146][169]"
  36. 200 a=a(c)/(g+1e-37)*20
  37. 210 printtab(t)"[145][145][144]   [146]":pokean,33
  38. 220 ifd<a-1thend=d+1:goto210
  39. 225 printtab(t)"[145][169]  [146][144]":pokean,0
  40. 226 printtab(t-2)"[145][145]"a(c)
  41. 230 ifc<6thenc=c+1:goto195
  42. 400 rem-> press key <-
  43. 500 geta$:ifa$<>"[133]"then500
  44. 510 run
  45.